<%
Private Function GetFocusField(ByVal aFields())
  Dim i
  Dim sFocusField

	For i = LBound(aFields) to UBound(aFields)
	  If aFields(i) <> "" Then
	    GetFocusField = aFields(i)
	    Exit Function
	  End If
	Next
End Function
%>